(Info-menu): Don't return error if point is between menu header and

first menu item.

diff --git a/lisp/info.el b/lisp/info.el
index 0164dedd2939e1db2c18484ae0d589f29512ca1a..1febb4d119572f8534949ecf88f12327bac560c1 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1212,10 +1212,10 @@ Completion is allowed, and the menu item point is on is the default."
            (save-excursion
              (goto-char p)
              (end-of-line)
-             (re-search-backward "\n\\* +\\([^:\t\n]*\\):" beg t)
-             (setq default (format "%s" (buffer-substring
-                                         (match-beginning 1)
-                                         (match-end 1)))))))
+             (if (re-search-backward "\n\\* +\\([^:\t\n]*\\):" beg t)
+                 (setq default (format "%s" (buffer-substring
+                                             (match-beginning 1)
+                                             (match-end 1))))))))
      (let ((item nil))
        (while (null item)
         (setq item (let ((completion-ignore-case t)